home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / MDIAN1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-01  |  329b  |  14 lines
  1. PROCEDURE mdian1(VAR x: narray; n: integer; VAR xmed: real);
  2. (* Program using routine MDIAN1 must define the type
  3. TYPE
  4.    narray = ARRAY [1..n] OF real;
  5. in the calling routine *)
  6. VAR
  7.    n2: integer;
  8. BEGIN
  9.    sort(n,x);
  10.    n2 := n DIV 2;
  11.    IF (2*n2 = n) THEN xmed := 0.5*(x[n2]+x[n2+1])
  12.    ELSE xmed := x[n2+1]
  13. END;
  14.